home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 001-025 / disk_013 / random-circles.bas < prev    next >
BASIC Source File  |  1992-05-06  |  406b  |  16 lines
  1. 100   rem
  2. 105   rem random-circles.bas
  3. 110   rem Rick Parker
  4. 115   rem 10/14/85
  5. 120   rem
  6. 1000  screen 1,4,0:scnclr
  7. 1001  randomize
  8. 1002  input "How many circles ";howmany:scnclr
  9. 1005  for number= 1 to howmany
  10. 1006  color= int(rnd*32)
  11. 1007  peno color
  12. 1010  xaxis%=int(rnd*640):yaxis%=int(rnd*400):radius%=int(rnd*200):aspect=rnd
  13. 1020  locate (xaxis%,yaxis%)
  14. 1030  circle ,radius%,aspect
  15. 1090  next number
  16.